object DlgsDlg: TDlgsDlg Left = 275 Top = 156 Width = 390 Height = 274 Caption = 'Common Dialogs' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] FormStyle = fsMDIChild Position = poScreenCenter Visible = True OnClose = FormClose PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 4 Width = 361 Height = 69 Alignment = taCenter AutoSize = False Caption = 'The TMultLang component can translate all 16-bit and 32-bit Comm' + 'on Dialogs (Open, Save, Find etc) via the external MDialogs unit' + '.' Font.Color = clBlack Font.Height = -13 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 8 Top = 84 Width = 357 Height = 33 AutoSize = False Caption = 'Click on any of the buttons to show the corresponding dialog.' Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Button1: TButton Left = 12 Top = 128 Width = 141 Height = 25 Caption = 'Open Dlg' TabOrder = 0 OnClick = Button1Click end object Button2: TButton Left = 12 Top = 156 Width = 141 Height = 25 Caption = 'Save Dlg' TabOrder = 1 OnClick = Button2Click end object Button3: TButton Left = 12 Top = 184 Width = 141 Height = 25 Caption = 'Print Dlg' TabOrder = 2 OnClick = Button3Click end object Button4: TButton Left = 12 Top = 212 Width = 141 Height = 25 Caption = 'Printer Setup Dlg' TabOrder = 3 OnClick = Button4Click end object Button5: TButton Left = 224 Top = 128 Width = 137 Height = 25 Caption = 'Find Dlg' TabOrder = 4 OnClick = Button5Click end object Button6: TButton Left = 224 Top = 156 Width = 137 Height = 25 Caption = 'Replace Dlg' TabOrder = 5 OnClick = Button6Click end object Button7: TButton Left = 224 Top = 184 Width = 137 Height = 25 Caption = 'Font Dlg' TabOrder = 6 OnClick = Button7Click end object Button8: TButton Left = 224 Top = 212 Width = 137 Height = 25 Caption = 'Color Dlg' TabOrder = 7 OnClick = Button8Click end object MultLang1: TMultLang Left = 296 Top = 44 Width = 45 Height = 22 AlignIcon = alLeft AlignText = alLeft IconMargin = 1 ItemHeight = 16 Items.Strings = ( 'English' 'Swedish') ShowIcons = False Text = 'English' ResizeIcon = False TextMargin = 5 DefaultLanguage = 'English' LanguageFile = '%EXEPath%Mdiapp.lan' LanguagesData = {} end object MOpenDialog1: TMOpenDialog FileEditStyle = fsEdit Options = [ofShowHelp] Title = 'Open Dialog, Note that you can also change font and size' Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [] Left = 8 Top = 52 end object MSaveDialog1: TMSaveDialog FileEditStyle = fsEdit Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [] Left = 36 Top = 52 end object MPrintDialog1: TMPrintDialog Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [] Left = 64 Top = 52 end object MPrinterSetupDialog1: TMPrinterSetupDialog Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [] Left = 92 Top = 52 end object MFindDialog1: TMFindDialog Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [] Left = 120 Top = 52 end object MReplaceDialog1: TMReplaceDialog Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [] Left = 148 Top = 52 end object MFontDialog1: TMFontDialog Font.Color = clBlack Font.Height = -11 Font.Name = 'Courier New' Font.Pitch = fpVariable Font.Style = [] MinFontSize = 0 MaxFontSize = 0 DisplayFont.Color = clBlack DisplayFont.Height = -11 DisplayFont.Name = 'Arial' DisplayFont.Style = [] Left = 176 Top = 52 end object MColorDialog1: TMColorDialog Ctl3D = True Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Pitch = fpVariable Font.Style = [] Left = 204 Top = 52 end end